home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 024 / modula-2 / m2 / clock.def < prev    next >
Text File  |  1995-03-17  |  681b  |  26 lines
  1. (********************************************************************************
  2.  
  3. Name         : Clock.DEF
  4. Version      : 1.0
  5. Purpose      : TimeStamp for Modula-2 compiler
  6. Authors      : cn/jr/ms/red
  7. Modified     : 12.3.86  19:47  cn
  8. State        : should be ok
  9. Requirements : 
  10.  
  11. ********************************************************************************)
  12.  
  13. DEFINITION MODULE Clock;
  14.  
  15.   TYPE
  16.     Time = RECORD
  17.              day:         CARDINAL; (* ??? *)
  18.              minute:      CARDINAL; (* hour*60 + minute *)
  19.              millisecond: CARDINAL; (* second*1000 + millisecond *)
  20.            END;
  21.  
  22.   PROCEDURE SetTime(t: Time);
  23.   PROCEDURE GetTime(VAR t: Time);
  24.  
  25. END Clock.
  26.